home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -screenplay- / shareware / hammytown / 17.room < prev    next >
Text File  |  1999-02-08  |  4KB  |  104 lines
  1. /*
  2. /* Room script for GRAAL
  3. /*
  4. /* "Room" 17 - MOD bit!
  5.  
  6. /* UPDATE: scroll_frames[;normal_frames]
  7. /*
  8. UPDATE: 2;1
  9.  
  10. /* SECTION: section_no
  11. /*
  12. SECTION: 1
  13.  
  14. /* BG_IFF: file
  15. /*
  16. BG_IFF: 17BG.iff
  17.  
  18. /* START_POS: startpos_no;image;x;y;L|M|R;floor_no
  19. /*
  20. START_POS: 1;14;5;96;L;1
  21. START_POS: 2;11;624;112;R;1
  22.  
  23. /* FLOOR: floor_no;x1;y1;x2;y2;floormaps
  24. /*
  25. FLOOR: 1;0;57;639;119;1-1
  26.  
  27. /* PATH: path_no;floor1;floor2;px1;py1;px2;py2;{more_points} (This statement is optional)
  28.  
  29. /* EXIT: exit_no;x1;y1;x2;y2;x;y;description (This statement is optional)
  30. EXIT: 1;0;46;36;119;7;99;Outside Airfield
  31. EXIT: 2;575;40;639;119;623;106;Next Bit
  32.  
  33. /* CLPART: file (This statement is optional)
  34. CLPART: 17FG.iff
  35.  
  36. /* ROOMBOBS: number;start_bob;x1;y1;w;h;x-offset;hotspot (This statement is optional)
  37. /* 1-3 is MOD bloke (1&2 normal, 1&3 Talking)
  38. ROOMBOBS: 3;1;19;16;26;50;27; 
  39. /* 4-7 is dodgy dog, (4-6 normal 4-7 "talking")
  40. ROOMBOBS: 4;4;112;43;29;16;30; 
  41. /* 8 is plant
  42. ROOMBOBS: 1;8;238;48;10;11;0; 
  43. /* 9 is extra MOD bloke frame stuck on with sellotape ;)
  44. ROOMBOBS: 1;9;255;16;25;50;0; 
  45.  
  46. /* STATIC: bob;image;x;y (This statement is optional)
  47.  
  48. /* ANIM: bob;image;anim_ch;anim;x;y (This statement is optional)
  49.  
  50. /* ROOMOBJ: obj;name;room;VIS|NVIS;bob;image;x;y;cx;cy;cimage;prep;PICK|NPICK;anim_ch;verb;icon;LOW|MID|HIGH;types;w1;w2;w3 (This statement is optional)
  51. ROOMOBJ: 1;Plant;17;VIS;55;RBOB8;398;79;-7;2;14; ;NPICK; ;8; ;LOW; ;a;this ;it
  52.  
  53. /* DACT: {cond|comm}
  54. /*
  55. DACT: IFOF 26,1=1;HIDE 7;HIDE 8
  56. DACT: LIGHTS ON
  57. DACT: IFOF 26,1=1;IFRF 2=0;SAY I wonder if that got rid of him?;SAY Let's see.;MOBJ ROBJ1;SAY YES! It worked!;SETRF 2=1
  58. DACT: IFOF 26,1=1;EXIT
  59.  
  60. /* Now, if the DACTs get this far, the MOD bloke is still there.
  61.  
  62. DACT: IFRF 1=1;SAY Well, here goes. He might've gone somewhere else.;MOBJ ROBJ1;RESP R,8,Grrrrr!;RESP R,7,I thought I told you to stay away!;SAY Erm...
  63. DACT: IFRF 1=1;RESP R,7,Get out!;RESP R,7,Otherwise this dog will bite you.;RESP R,7,Remember, these dogs break bones!;RESP R,8,Aruff!!;SAY Yikes!;SETRF 1=2;GOTO 15,3
  64.  
  65. DACT: SAY Well, it looks deserted.;MOBJ ROBJ1;THINK Oops...;RESP R,8,Arroof! Grrrrr!;RESP R,7,Stay where you are!;SAY Err, okay...;W 50;RESP R,7,This is MOD Property!;RESP R,7,Can't you read the sign?;SAY Er...
  66. DACT: RESP R,7,What are you doing here?;SAY Um...;SETRF 1=1;DSET 7,+1,+2,+3,+5
  67.  
  68.  
  69. /* LINE: dlg;line_no;sentence1;sentence2| ;{cond} (This statement is optional)
  70.  
  71. LINE: 7;1;I was just going for a quick walk.; ; 
  72. LACT: 7;1;RESP R,7,Well, why walk on MOD property?;RESP R,7,There are pleanty of other good walks, like the one by the Marconi monument.
  73. LACT: 7;1;DSET 7,N1,N3,N5,+4
  74.  
  75. LINE: 7;2;I didn't see the MOD sign.; ; 
  76. LACT: 7;2;RESP R,7,Didn't see it?!;RESP R,7,It's massive!;SAY Oh yes. Whoops.
  77. LACT: 7;2;DSET 7,N1,N2,N3,N5,+4,+6
  78.  
  79. LINE: 7;3;It's none of your f'king business!; ; 
  80. LACT: 7;3;RESP R,7,It is my business when it is on MOD property!;RESP R,7,It's this dog's business too.;RESP R,7,It's his business to eat anybody that tries to outrun him, as well!;RESP R,8,Arrrrruff!!;SAY -GULP-
  81. LACT: 7;3;DSET 7,N1,N3,N5,+4
  82.  
  83. LINE: 7;4;I'm sorry. I won't do it again.; ; 
  84. LACT: 7;4;RESP R,7,I hope not!;RESP R,7,You could be shot or anything.;RESP R,7,If that happened on civilian land, your family would be eligible for compensation.;RESP R,7,But not if you were trespassing on MOD land!
  85. LACT: 7;4;W 50;RESP R,7,If this dog bit you, it would be considered YOUR fault, because you shouldn't be trespassing.;RESP R,8,Ruff!;RESP R,7,...and these dogs break bones!;W 100;RESP R,7,Rex, you're wandering!;RESP R,8,(whimper!);W 100
  86. LACT: 7;4;RESP R,7,Okay, you can go now.
  87. LACT: 7;4;EDLG;GOTO 15,3;EXIT
  88.  
  89. LINE: 7;5;I was looking for a killer hamster.; ; 
  90. LACT: 7;5;RESP R,7,Killer hamster?!;RESP R,7,We have no killer hamsters here!;RESP R,7,Try again.;DSET 7,N5
  91.  
  92. LINE: 7;6;What a nice dog.; ; 
  93. LACT: 7;6;RESP R,7,Oh, you think so?;MOBJ 8;SAY Nice doggie!;RESP R,8,GRRRRRRRR!;MOBJ 7;SAY Yikes!;DSET 7,N6
  94.  
  95.  
  96. /* LACT: dlg;line_no;{cond|comm} (This statement is optional)
  97.  
  98. /* ACTION: verb_no;{cond|comm} (This statement is optional)
  99.  
  100. ACTION: 0;IFOBJ 1;MEXIT;GOTO 15,3
  101. ACTION: 0;IFOBJ 2;MEXIT;GOTO 23,1
  102.  
  103. ACTION: 8;IFOBJ ROBJ1;SAY It's just a useless bit of grass.;EXIT
  104.